<%
    db = "database/farm.mdb"
    set conn = Server.CreateObject("adodb.Connection")
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
    conn.Open connstr
%>